home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t2.d64 / sitting duck.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  826b  |  47 lines
  1. 1 REM   SPRITE ONE
  2. 2 REM   STEVE CHAN
  3. 3 REM   V5.5 NOV/23/1982
  4. 10 V=53248:PRINT"[147]"
  5. 20 IF PEEK(861)<>136 THEN POKE861,136:LOAD "DUCK DATA.D",8,1
  6. 21 :
  7. 22 REM ENABLE SPRITE ZERO - UFO
  8. 23 :
  9. 25 POKE V+29,1:POKE V+23,2
  10. 30 POKE V+21,03
  11. 40 POKE 2040,203
  12. 50 POKE V,10:POKE V+1,60
  13. 60 POKE V+39,4
  14. 61 :
  15. 62 REM ENABLE SPRITE ONE - BASE
  16. 63 :
  17. 64 POKE 2041,200
  18. 65 POKE V+2,170:POKEV+3,200
  19. 66 POKE V+40,5
  20. 67 :
  21. 68 REM ENABLE SPRITE TWO - MISSILE
  22. 70 :
  23. 71 POKE 2042,202
  24. 72 POKE V+21,7
  25. 73 POKE V+4,170
  26. 80 REM MOVE SPRITE ZERO - UFO
  27. 81 :
  28. 82 P=190
  29. 83 POKEV+1,INT(RND(1)*145)+50
  30. 85 FOR X=1 TO 250
  31. 90 POKE V,X
  32. 100 GET A$:IFA$<>""THEN F=1:POKEV+21,7
  33. 102 IF F THEN P=P-3:IF P>26 THEN POKE V+5,P
  34. 110 IF P<26 THEN P=190:F=0
  35. 115 IF PEEK(V+30)=5 THEN 140
  36. 120 NEXT:GOTO 80
  37. 130 END
  38. 131 :
  39. 132 REM EXPLOSION
  40. 133 :
  41. 140 POKE 2040,0:FORT=1 TO 100:NEXT
  42. 150 POKE V+21,2
  43. 160 SC=SC+5:PRINT"            SCORE:"SC           
  44. 170 POKE V+21,3:POKEV+30,0:POKE2040,203
  45. 175 F=0
  46. 180 GOTO 80
  47.